home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1999 February / MACPOWER-1999-02.ISO.7z / MACPOWER-1999-02.ISO / 9902⁄AMUG / EDUCATION / Easy Writer 3.5.sit / Easy Writer ƒ / Easy Writer .rsrc / LENS_132_Icon Picker < prev    next >
Text File  |  1998-10-19  |  3KB  |  58 lines
  1. ItemType: WIND
  2. Rect: 238,144,594,379
  3. Style: Dialog
  4. HasTitleBar: FALSE
  5. HasZoomBox: FALSE
  6. Name: Icon Picker
  7. WhiteColor: -1,-1,13107
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValueﾂﾂif objValue="Open" thenﾂ  put resourceList("ICON",ID) into iclistﾂ  get "i2_Text:"&scrunch(iclist)ﾂ  wsSet wdid,"0","Properties",it ﾂ  ﾂelse if objValue="Close" then ﾂ  ﾂelse if objValue="Suspend" then ﾂ  ﾂelse if objValue="Resume" then ﾂ  ﾂelse if objValue="CloseBox" then ﾂ  ﾂelse if objValue="ZoomBox" then ﾂ  ﾂelse if objValue="GrowBox" then ﾂ  ﾂelse if objValue="TitleBar" then ﾂ  ﾂend ifﾂﾂ--end windowEvent
  9. Result: i4_Text
  10.  
  11. ItemType: TEXT
  12. Rect: 15,2,334,20
  13. TextSize: 14
  14. BlackColor: -1,-1,0
  15. WhiteColor: 0,0,-4370
  16. TextStyle: Bold,Italic
  17. Text:             Platypus Icon Picker            
  18.  
  19. ItemType: LIST
  20. Rect: 6,23,343,185
  21. Style: ListOfIcons
  22. Text: 6028ﾂ6033ﾂ11260ﾂ12157ﾂ13848ﾂ1411ﾂ4107ﾂ1017ﾂ4567ﾂ0ﾂ1ﾂ2ﾂ8964ﾂ8979ﾂ13744ﾂ1168ﾂ3000ﾂ3001ﾂ20002ﾂ20001ﾂ20003ﾂ20004ﾂ20000ﾂ6720ﾂ3071ﾂ30970ﾂ29183ﾂ2100ﾂ2101ﾂ2103ﾂ2102ﾂ2104ﾂ17217ﾂ17218ﾂ9999ﾂ10000ﾂ10001ﾂ10002ﾂ10003ﾂ30504ﾂ7024ﾂ131ﾂ31885ﾂ29589ﾂ24753ﾂ130ﾂ128ﾂ132ﾂ129ﾂ28226ﾂ3000ﾂ3001ﾂ9999ﾂ17218ﾂ10000ﾂ10001ﾂ10002ﾂ10003ﾂ199ﾂ4441ﾂ4442ﾂ443ﾂ1942ﾂ2002ﾂ1000ﾂ1001ﾂ1002ﾂ1003ﾂ1004ﾂ1005ﾂ1006ﾂ1007ﾂ1008ﾂ1019ﾂ26884ﾂ18814ﾂ27056ﾂ15420ﾂ16560ﾂ6720ﾂ16692ﾂ3584ﾂ24317ﾂ29903ﾂ1014ﾂ1013ﾂ1012ﾂ29019ﾂ2730ﾂ30557ﾂ26865ﾂ9301ﾂ27009ﾂ2162ﾂ32488ﾂ2335ﾂ5472ﾂ766ﾂ902ﾂ26425ﾂ29114ﾂ4895ﾂ6724ﾂ21449ﾂ24830ﾂ17779ﾂ8419ﾂ7417ﾂ26020ﾂ15279ﾂ19381ﾂ22308ﾂ14953ﾂ6460ﾂ6179ﾂ3835ﾂ29484ﾂ9120ﾂ19162ﾂ1016ﾂ32650ﾂ1011ﾂ11045ﾂ20098ﾂ21700ﾂ20689ﾂ21847ﾂ1017ﾂ10610ﾂ30696ﾂ17481ﾂ3430ﾂ11645ﾂ4432ﾂ20965ﾂ17357ﾂ21209ﾂ8961ﾂ22855ﾂ4263ﾂ15972ﾂ20186ﾂ32670ﾂ26635ﾂ25002ﾂ32462ﾂ21060ﾂ2507ﾂ31685ﾂ1020ﾂ23078ﾂ19678ﾂ2478ﾂ14767ﾂ1018ﾂ1015ﾂ1009ﾂ8538ﾂ9761ﾂ7012ﾂ13149ﾂ16344ﾂ17343ﾂ12195ﾂ28023ﾂ28024ﾂ28022ﾂ18222ﾂ18223ﾂ2980ﾂ25309ﾂ24753ﾂ21437ﾂ31885ﾂ29589ﾂ16735ﾂ21711ﾂ17214ﾂ6544ﾂ11260ﾂ7142ﾂ18607ﾂ21573ﾂ21574ﾂ21575ﾂ21576ﾂ24694ﾂ6560ﾂ6491ﾂ12722ﾂ24081ﾂ27328ﾂ22978ﾂ15993ﾂ2181ﾂ13744ﾂ13745ﾂ8323ﾂ10935ﾂ17838ﾂ17896ﾂ17890ﾂ17937ﾂ23613ﾂ8348ﾂ8347ﾂ8979ﾂ8964ﾂ8980ﾂ6044ﾂ6043ﾂ28811ﾂ28810ﾂ8350ﾂ8349ﾂ23717ﾂ23718ﾂ28654ﾂ27774ﾂ3071ﾂ3358ﾂ27969ﾂ9104ﾂ10181ﾂ12411ﾂ19638ﾂ17264ﾂ11714ﾂ17169ﾂ3333ﾂ11216ﾂ16321ﾂ2101ﾂ2102ﾂ2103ﾂ2104ﾂ2105ﾂ2106ﾂ26665ﾂ-16563ﾂ-16522ﾂ-16523ﾂ-16524ﾂ-16492ﾂ-16491ﾂ-16490ﾂ-16489ﾂ-16488ﾂ-16487ﾂ-16480ﾂ-16412ﾂ0ﾂ1ﾂ2ﾂ-6079
  23. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂput wsGet(wdName,"2","SelectionText") into itﾂwsSet wdName,"4","Text",itﾂ--end mouseUp
  24.  
  25. ItemType: LBL
  26. Rect: 7,201,35,217
  27. BlackColor: 0,0,-8739
  28. Text: ID#
  29.  
  30. ItemType: TEXT
  31. Rect: 40,202,76,218
  32. Name: IconId
  33. BlackColor: 0,0,-8739
  34. WhiteColor: -1,-1,13107
  35. Text: 8964
  36.  
  37. ItemType: PUSH
  38. Rect: 275,197,347,217
  39. BlackColor: 0,0,-8739
  40. WhiteColor: -1,-1,13107
  41. Name: OK
  42. DefaultItem: TRUE
  43. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂput wsGet(wdName,"4","Text") into itﾂif it is 0 then ﾂ  beepﾂelseﾂ  wsSend wdName,0,"close"ﾂend ifﾂ--end mouseUp
  44.  
  45. ItemType: PUSH
  46. Rect: 186,198,266,218
  47. BlackColor: 0,0,-8739
  48. WhiteColor: -1,-1,13107
  49. Name: Cancel
  50. CancelItem: TRUE
  51. AutoClose: TRUE
  52.  
  53. ItemType: PUSH
  54. Rect: 102,198,182,218
  55. BlackColor: 0,0,-8739
  56. WhiteColor: -1,-1,13107
  57. Name: None
  58. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂwsSet wdName,"2","Selection",""ﾂwsSet wdName,"4","Text",0ﾂ--end mouseUp□